Calvi

Row

Row

Suivi de température des eaux portuaires

Interactive Biomarker Response (IBR)

L’Île Rousse

Row

Row

Suivi de température des eaux portuaires

Interactive Biomarker Response (IBR)

Saint-Florent

Row

Row

Suivi de température des eaux portuaires

Interactive Biomarker Response (IBR)

STARESO

Row

Row

Suivi de température des eaux portuaires

Interactive Biomarker Response (IBR)

Information

Comment utiliser cet outil ?

À propos

Contact

---
title: "QUAMPO"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
    orientation: rows
    social: menu
    source: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(magrittr)
library(plotly)
library(crosstalk)
library(dygraphs)
library(leaflet)

devtools::load_all()

# Read temperature data
temp    <- readRDS(file = here::here("data/hobo_data.RDS"))
ibr     <- readRDS(file = here::here("data/ibr_data.RDS"))


ibr_mussel <- ibr[ibr$specie %in% "limpet",]
ibr_limpet <- ibr[ibr$specie %in% "mussel",]
  

# Read 
ports_m <- sf::st_read(dsn = here::here("data/ports_markers.shp"))

# Put data in a shared environment
temp_sd        <- crosstalk::SharedData$new(temp, key = ~site)
ibr_mussel_sd  <- crosstalk::SharedData$new(ibr_mussel, key = ~site, group = "xyz")
ibr_limpet_sd  <- crosstalk::SharedData$new(ibr_limpet, key = ~site, group = "xyz")
```


Calvi
===================================== 
Row {data-height=500}
-------------------------------------
###
```{r map1}

 leaflet::leaflet() %>%
    leaflet::addTiles() %>%
    leaflet::setView(lng = 8.77, lat = 42.57, zoom = 13) %>%
    leaflet::addMarkers(data = ports_m[ports_m$id %in% "Calvi",])

```

Row {.tabset .tabset-fade}
-------------------------------------
### Suivi de température des eaux portuaires
```{r dy1}

plot_tp(port = "Calvi")
```

### Interactive Biomarker Response (IBR)
```{r ibr1}

plot_ibr(port = "Calvi", species = "limpet", spn ="Mimachlamys varia")
```

L'Île Rousse
===================================== 
Row {data-height=500}
-------------------------------------
###
```{r map2}


 leaflet::leaflet() %>%
    leaflet::addTiles() %>%
    leaflet::setView(lng = 8.94, lat = 42.64, zoom = 13) %>%
    leaflet::addMarkers(data = ports_m[ports_m$id %in% "Ile Rousse",])

```

Row {.tabset .tabset-fade}
-------------------------------------
### Suivi de température des eaux portuaires
```{r dy2}

plot_tp(port = "Ile Rousse")

```

### Interactive Biomarker Response (IBR)
```{r ibr2}

plot_ibr(port = "Ile Rousse", species = "limpet", spn ="Mimachlamys varia")
```

Saint-Florent
===================================== 
Row {data-height=500}
-------------------------------------
###
```{r map3}

 leaflet::leaflet() %>%
    leaflet::addTiles() %>%
    leaflet::setView(lng = 9.29, lat = 42.69, zoom = 13) %>%
    leaflet::addMarkers(data = ports_m[ports_m$id %in% "Saint-Florent",])

```

Row {.tabset .tabset-fade}
-------------------------------------
### Suivi de température des eaux portuaires
```{r dy3}

plot_tp(port = "Saint-Florent")
```

### Interactive Biomarker Response (IBR)

```{r ibr3}

plot_ibr(port = "Saint-Florent", species = "limpet", spn ="Mimachlamys varia")
```


STARESO
===================================== 
Row {data-height=500}
-------------------------------------
###
```{r map4}

leaflet::leaflet() %>%
    leaflet::addTiles() %>%
    leaflet::setView(lng = 8.72, lat = 42.58, zoom = 13) %>%
    leaflet::addMarkers(data =ports_m[ports_m$id %in% "STARESO",])

```

Row {.tabset .tabset-fade}
-------------------------------------
### Suivi de température des eaux portuaires
```{r dy4}

plot_tp(port = "STARESO")
```

### Interactive Biomarker Response (IBR)

```{r ibr4}

plot_ibr(port = "STARESO", species = "limpet", spn ="Mimachlamys varia")
```


Information {data-orientation=rows data-icon="fa-info-circle"}
=====================================

### Comment utiliser cet outil ?


### À propos


#### Contact